Disc Station 1 (Korea)/Disc Station Vol 1 (Korea).ISO/menu/startup.mct

Text File | 1997-02-03 | 17.8 KB | 1,146 lines

;

;
;
;
;
;

;
;
;
;
;

@Effect 20, 245, 8
@sndload DSmenu.mlk
$snd = 0
@snd $snd
@pcmload DSmenu.wlk

@INSTgrp    popup12, (20, 15), 170    ;
@INSTmater    mater12, 34, 3, 234        ;
@INSTmaterSet    (2, 20)                ;
@INSTchr    puyo12, 8, 7, 226, 228    ;
@INSTchrSet    0, 3, 0, 2, 1, 3, 4, 2, 1    ;
@INSTchrSet    1, 3, 0, 2, 1, 3, 4, 2, 1    ;
@INSTmess    instmes, (0, 1), 40, 4, 167, 167    ;
@INSTmessSet    0, 12, 0, 2            ;
@INSTmessSet    1, 12, 1, 3            ;
@INSTmessSet    2, 12, 4, 6            ;
@INSTmessSet    3, 12, 5, 7            ;
@INSTmessSet    4, 12, 8, 10        ;
@INSTmessSet    5, 12, 9, 11        ;
@INSTmessSet    6, 12, 12, 14        ;
@INSTmessSet    7, 12, 13, 15        ;
@INSTmessSet    8, 12, 16, 18        ;
@INSTmessSet    9, 12, 17, 19        ;

@INSTmodeLoad mode12, (20, 2), 40, 4, 163, 163        ;
@INSTmodeSet    0, 1, 0                ;
@INSTmodeSet    1, 1, 1                ;
@INSTmodeSet    2, 1, 3                ;
@INSTmodeSet    3, 1, 2                ;

;
;
;
;
;

@SYSinstDir DiscStation1                       ;
@SYSCDvolume DS1                                       ;
@SYSappName DiscStation1                       ;
@SYSregKey DS1                                         ;
@SYSuninst DSshell.exe                ;
@SYSdrvType CD, HD                    ;
@SYSmenuName ú─ú╙╕▐┤║íííí            ;
@SYSmenuPath InstMenu                ;
@SYSmenu    DSshell.exe                ;
@SYSload sysico12, 10, 9, 219, 222    ;

@DRAWdisable                        ;
;
@LOGOload logo12, 20, 8, 80, 82        ;
@MENUload DSgame12, 16, 12, 20, 20    ;
@Wall DSwall12 ,85                    ;

@GOSUB :sysiconinit                    ;
@GOSUB :gameinit                    ;
@DRAWenable                            ;

$start = 0

;
;
;
;
;

:init

@DRAWdisable                        ;

@INSTmode $mode                        ;

@GOSUB :sysiconset                    ;

@GOSUB :Df3SetInst                ;
@GOSUB :JHSetInst                    ;
@GOSUB :SnpSetInst                    ;
@GOSUB :GenSetInst                    ;
@GOSUB :NPSetInst                    ;
@GOSUB :MadoSetInst                    ;
@GOSUB :MovieSetInst                ;

@IF $start != 0 :loopA
@DRAWenable                            ;
@Effect 20, 245, 10
$start = 1

:loopA

@DRAWenable                            ;

:loop                                ;
@ICONenable
@Goto :loop                            ;

:inst
@IF $mode == 0 :loop
@pcm 0
;
;
;
;
;
;
;
$mode = 0                            ;
@GOTO :init

:store
@IF $mode == 1 :loop
@pcm 0
$mode = 1                            ;
@GOTO :init

:restore
@IF $mode == 2 :loop
@pcm 0
$mode = 2                            ;
@GOTO :init

:uninst
@IF $mode == 3 :loop
@pcm 0
;
;
;
;
;
;
;
$mode = 3                            ;
@GOTO :init

:exit
@pcm 0
@END                                ;


;
;
;
;
;

:sysiconinit

@MENUset exit(0), 1, 5, 3             ;
@MENUlogoSet (26, 39), 24            ;
@MENUset store(0), 1, 5, 0            ;
@MENUset store(1), 1, 5, 5            ;
@MENUlogoSet (26, 39), 27            ;
@MENUset restore(0), 1, 5, 1        ;
@MENUset restore(1), 1, 5, 6        ;
@MENUlogoSet (26, 39), 28            ;
@MENUset uninst(0), 1, 5, 2            ;
@MENUset uninst(1), 1, 5, 7            ;
@MENUlogoSet (26, 39), 26            ;
@MENUset inst(0), 1, 5, 4            ;
@MENUset inst(1), 1, 5, 9            ;
@MENUlogoSet (26, 39), 25            ;
@RET


:sysiconset

@MENUput exit(0), (68, 51)            ;
@MENUlogo exit, 0                    ;
@MENUgoto exit, :exit                ;


@IF $mode == 1 :store1
@MENUput store(0), (36, 51)            ;
@Goto :store2
:store1
@MENUput store(1), (36, 51)            ;
:store2
@MENUlogo store, 0                    ;
@MENUgoto store, :store                ;

@IF $mode == 0 :inst1
@MENUput inst(0), (4, 51)            ;
@Goto :inst2
:inst1
@MENUput inst(1), (4, 51)            ;
:inst2
@MENUlogo inst, 0                    ;
@MENUgoto inst, :inst                ;

@IF $mode == 2 :restore1
@MENUput restore(0), (52, 51)        ;
@Goto :restore2
:restore1
@MENUput restore(1), (52, 51)        ;
:restore2
@MENUlogo restore, 0                ;
@MENUgoto restore, :restore            ;

@IF $mode == 3 :uninst1
@MENUput uninst(0), (20, 51)        ;
@Goto :uninst2
:uninst1
@MENUput uninst(1), (20, 51)        ;
:uninst2
@MENUlogo uninst, 0                    ;
@MENUgoto uninst, :uninst            ;

@MENUdisp store, 1                    ;
@MENUdisp restore, 1                    ;
@MENUdisp inst, 1                    ;
@MENUdisp uninst, 1                    ;

@RET

;
;
;
;
;
:gameinit

@MENUset Df3(0), 0, 2, 9, 10, 11, 10, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9     ;
@MENUset Df3(1), 0, 2, 6, 7, 8, 7, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6, 6      ;
@MENUset Df3(2), 0, 2, 36, 37, 38, 37, 36, 36, 36, 36, 36, 36, 36, 36, 36, 36 ;
@MENUclip Df3, 0, 0, 127, 95  ;
@MENUlogoSet (26, 39), 31, 18, 14, 20, 21, 22             ;
@GAMEname Df3, ╡Ñ║⌠╞≈╜║ú│              ;
@GAMEexeFile Df3, DEVILF~1.exe            ;
@GAMEexePath Df3, Df3         ;
@GAMEsavePath Df3, SaveData                    ;
@GAMEinstDir Df3, Df3            ;
@GAMECDdir Df3, Df3                    ;


@MENUset Mado(0), 0, 2, 3, 4, 5, 4, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3, 3     ;
@MENUset Mado(1), 0, 2, 0, 1, 2, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0    ;
@MENUset Mado(2), 0, 2, 33, 34, 35, 34, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33, 33    ;
@MENUclip Mado, 0, 0, 127, 200
@MENUlogoSet (26, 39), 31, 8, 9, 10, 11, 12    ;
@GAMEname Mado, ╕╢╡╡└ⁿ▒Γí¡╛√╕┴┴°├ó▒Γ╕╗╜├╟Φí¡ ;
@GAMEexeFile Mado, mado.exe                    ;
@GAMEexePath Mado, mado
@GAMEsavePath Mado, SaveData                    ;
@GAMEinstDir Mado, mado
@GAMECDdir Mado, Mado                                       ;

@MENUset Snp(0), 0, 3, 19, 20, 21, 22, 19, 19, 19, 19, 19, 19    ;
@MENUset Snp(1), 0, 5, 18                        ;
@MENUset Snp(2), 0, 3, 42, 43, 44, 45, 42, 42, 42, 42, 42, 42    ;
@MENUclip Snp, 0, 20, 127, 70
@MENUlogoSet (26, 39), 31, 5, 6, 7            ;
@GAMEname Snp, ╛╓╟├╝╥╜║í¡╜║│¬└╠╞█í¡íííí        ;
@GAMEexeFile Snp, Sniper.exe                    ;
@GAMEexePath Snp, ╜║│¬└╠╞█íí                    ;
@GAMEinstDir Snp, ╜║│¬└╠╞█íí                    ;
@GAMECDdir Snp, Sniper                    ;

@MENUset JH(0), 0, 5, 23, 24, 25, 24              ;
@MENUset JH(1), 0, 5, 49, 50, 51, 50                ;
@MENUset JH(2), 0, 5, 46, 47, 48, 47            ;
@MENUclip JH, 0, 0, 127, 95
@MENUlogoSet (26, 39), 31, 0, 1, 2, 3, 4    ;
@GAMEname JH, ú┬ú∩úφúΓúσú≥ííú╟ú╧ú╟ú╧        ;
@GAMEexeFile JH, J_Hero.exe                    ;
@GAMEexePath JH, Bomber                    ;
@GAMEinstDir JH, Bomber                    ;
@GAMECDdir JH, Bomber                    ;

@MENUset GEN(0), 0, 5, 15, 16, 17, 16              ;
@MENUset GEN(1), 0, 5, 12, 13, 14, 13                ;
@MENUset GEN(2), 0, 5, 39, 40, 41, 40                ;
@MENUclip GEN, 0, 0, 127, 95
@MENUlogoSet (26, 39), 31, 13, 14, 15, 16, 17    ;
@GAMEname GEN, ╚»╝╝─Φ┴°▒╪                    ;
@GAMEexeFile GEN, gensei.exe                    ;
@GAMEexePath GEN, ╚»╝╝─Φ┴°▒╪                    ;
@GAMEinstDir GEN, ╚»╝╝─Φ┴°▒╪                    ;
@GAMECDdir GEN, Gense                    ;

@MENUset NP(0), 0, 3, 29, 30, 31, 32, 32, 32, 29, 30, 32, 29, 29, 29, 29, 29, 29, 29, 29, 29     ;
@MENUset NP(1), 0, 3, 56, 57, 58, 56, 56, 56, 59, 57, 59, 56, 56, 56, 56, 56, 56, 56, 56, 56     ;
@MENUset NP(2), 0, 3, 52, 53, 54, 52, 52, 52, 55, 53, 55, 52, 52, 52, 52, 52, 52, 52, 52, 52     ;
@MENUclip NP, 0, 24, 127, 95
@MENUlogoSet (26, 39), 31, 19, 29, 30            ;
@GAMEname NP, ╞█┴±╗╤┐Σ                                  ;
@GAMEexeFile NP, npuyo.exe                ;
@GAMEexePath NP, ╞█┴±╗╤┐Σ                             ;
@GAMEinstDir NP, ╞█┴±╗╤┐Σ                               ;
@GAMECDdir NP, nazonazo                    ;



@MENUset Movie1(0), 0, 5, 26, 27, 28, 27             ;
@MENUset Movie1(2), 0, 5, 49, 50, 51, 50             ;
@MENUclip Movie1, 0, 16, 63, 47
@MENUlogoSet (26, 39), 31, 20            ;

@MENUset Movie2(0), 0, 5, 59             ;
@MENUclip Movie2, 0, 48, 63, 79
@MENUlogoSet (26, 39), 31, 21            ;

@MENUset Movie5(0), 0, 5, 59             ;
@MENUclip Movie5, 64, 0, 127, 31
@MENUlogoSet (26, 39), 31, 14            ;

@MENUset Movie3(0), 0, 5, 59             ;
@MENUclip Movie3, 64, 32, 127, 63
@MENUlogoSet (26, 39), 31, 22            ;

@MENUset Movie4(0), 0, 5, 59             ;
@MENUclip Movie4, 64, 64, 127, 95
@MENUlogoSet (26, 39), 31, 23            ;

;@RET


;
;
;
;
;

:MadoSetInst
@INSTinfo Mado, $flag

@IF $flag != 0 :MadoAlready
@IF $mode == 0 :madoinst
@MENUlogo Mado, 0                    ;
@MENUgoto Mado, :MadoNone            ;
@MENUput Mado(2), (34, 8)            ;
@GOTO :MadoNext
:madoinst
@MENUlogo Mado, 1                    ;
@MENUgoto Mado, :MadoInst            ;
@MENUput Mado(0), (34, 8)            ;
@Goto :MadoNext

:MadoAlready
@IF $mode == 0 :madoexec
@IF $mode == 1 :madostore
@IF $mode == 2 :madorestore
@MENUlogo Mado, 2                    ;
@MENUgoto Mado, :MadoUninst            ;
@MENUput Mado(0), (34, 8)            ;
@Goto :MadoNext
:madoexec
@MENUlogo Mado, 3                    ;
@MENUgoto Mado, :MadoExec            ;
@MENUput Mado(1), (34, 8)            ;
@Goto :MadoNext
:madostore
@MENUlogo Mado, 4                    ;
@MENUgoto Mado, :MadoStore            ;
@MENUput Mado(0), (34, 8)            ;
@Goto :MadoNext
:madorestore
@MENUlogo Mado, 5                    ;
@MENUgoto Mado, :MadoRestore        ;
@MENUput Mado(0), (34, 8)            ;

:MadoNext

@RET


;
;
;
;
;

:JHSetInst
@INSTinfo JH, $flag

@IF $flag != 0 :JHAlready
@IF $mode == 0 :JHinst
@MENUlogo JH, 0                    ;
@MENUgoto JH, :JHNone            ;
@MENUput JH(2), (64, 24)            ;
@GOTO :JHNext
:JHinst
@MENUlogo JH, 1                    ;
@MENUgoto JH, :JHInst            ;
@MENUput JH(0), (64, 24)            ;
@Goto :JHNext

:JHAlready
@IF $mode == 0 :JHexec
@IF $mode == 1 :JHstore
@IF $mode == 2 :JHrestore
@MENUlogo JH, 2                    ;
@MENUgoto JH, :JHUninst            ;
@MENUput JH(0), (64, 24)            ;
@Goto :JHNext
:JHexec
@MENUlogo JH, 5                    ;
@MENUgoto JH, :JHExec            ;
@MENUput JH(1), (64, 24)            ;
@Goto :JHNext

:JHrestore
:JHstore
@MENUlogo JH, 0                    ;
@MENUgoto JH, :JHNone            ;
@MENUput JH(2), (64, 24)            ;
@GOTO :JHNext

;
@MENUlogo JH, 4                    ;
;
@MENUgoto JH, :JHNone            ;
@MENUput JH(0), (64, 24)            ;
@Goto :JHNext
;
@MENUlogo JH, 3                    ;
;
@MENUgoto JH, :JHNone        ;
@MENUput JH(0), (64, 24)            ;

:JHNext

@RET



;
;
;
;
;

:SnpSetInst
@INSTinfo Snp, $flag

@IF $flag != 0 :SnpAlready
@IF $mode == 0 :Snpinst
@MENUlogo Snp, 0                    ;
@MENUgoto Snp, :SnpNone            ;
@MENUput Snp(2), (48, 32)            ;
@GOTO :SnpNext
:Snpinst
@MENUlogo Snp, 1                    ;
@MENUgoto Snp, :SnpInst            ;
@MENUput Snp(0), (48, 32)            ;
@Goto :SnpNext

:SnpAlready
@IF $mode == 0 :Snpexec
@IF $mode == 1 :Snpstore
@IF $mode == 2 :Snprestore
@MENUlogo Snp, 2                    ;
@MENUgoto Snp, :SnpUninst            ;
@MENUput Snp(0), (48, 32)            ;
@Goto :SnpNext
:Snpexec
@MENUlogo Snp, 3            ;
@MENUgoto Snp, :SnpExec            ;
@MENUput Snp(1), (48, 32)        ;
@Goto :SnpNext
:Snpstore
:Snprestore
@MENUlogo Snp, 0                    ;
@MENUgoto Snp, :SnpNone            ;
@MENUput Snp(2), (48, 32)            ;
@Goto :SnpNext

:SnpNext

@RET

;
;
;
;
;

:GenSetInst
@INSTinfo GEN, $flag

@IF $flag != 0 :GenAlready
@IF $mode == 0 :Geninst
@MENUlogo GEN, 0                    ;
@MENUgoto GEN, :GenNone            ;
@MENUput GEN(2), (0, 30)            ;
@GOTO :GenNext
:Geninst
@MENUlogo GEN, 4                    ;
@MENUgoto GEN, :GenInst            ;
@MENUput GEN(0), (0, 30)            ;
@Goto :GenNext

:GenAlready
@IF $mode == 0 :Genexec
@IF $mode == 1 :Genstore
@IF $mode == 2 :Genrestore
@MENUlogo GEN, 5                    ;
@MENUgoto GEN, :GenUninst            ;
@MENUput GEN(0), (0, 30)            ;
@Goto :GenNext
:Genexec
@MENUlogo GEN, 1                    ;
@MENUgoto GEN, :GenExec            ;
@MENUput GEN(1), (0, 30)            ;
@Goto :GenNext

:Genrestore
:Genstore
@MENUlogo GEN, 0                    ;
@MENUgoto GEN, :GenNone            ;
@MENUput GEN(2), (0, 30)            ;
@GOTO :GenNext

;
@MENUlogo GEN, 2                    ;
;
@MENUgoto GEN, :GenNone            ;
@MENUput GEN(0), (0, 30)            ;
@Goto :GenNext
;
@MENUlogo GEN, 3                    ;
;
@MENUgoto GEN, :GenNone        ;
@MENUput GEN(0), (0, 30)            ;

:GenNext

@RET

;
;
;
;
;

:NPSetInst
@INSTinfo NP, $flag

@IF $flag != 0 :NPAlready
@IF $mode == 0 :NPinst
@MENUlogo NP, 0                ;
@MENUgoto NP, :NPNone            ;
@MENUput NP(2), (62, 38)            ;
@GOTO :NPNext
:NPinst
@MENUlogo NP, 2                ;
@MENUgoto NP, :NPInst            ;
@MENUput NP(0), (62, 38)            ;
@Goto :NPNext

:NPAlready
@IF $mode == 0 :NPexec
@IF $mode == 1 :NPstore
@IF $mode == 2 :NPrestore
@MENUlogo NP, 3                    ;
@MENUgoto NP, :NPUninst            ;
@MENUput NP(0), (62, 38)            ;
@Goto :NPNext
:NPexec
@MENUlogo NP, 1                    ;
@MENUgoto NP, :NPExec            ;
@MENUput NP(1), (62, 38)            ;
@Goto :NPNext

:NPrestore
:NPstore
@MENUlogo NP, 0                    ;
@MENUgoto NP, :NPNone            ;
@MENUput NP(2), (62, 38)            ;
;

:NPNext

@RET

;

:Df3SetInst

@INSTinfo Df3, $flag
@IF $flag != 0 :Df3Already
@IF $mode == 0 :df3inst
@MENUlogo Df3, 0                    ;
@MENUgoto Df3, :Df3None            ;
@MENUput Df3(2),  (12, 10)            ;
@GOTO :Df3Next
:df3inst
@MENUlogo Df3, 1
@MENUgoto Df3, :Df3inst
@MENUput Df3(0), (12, 10)                     ;
@Goto :Df3Next

:Df3Already
@IF $mode == 0 :df3exec
@IF $mode == 1 :df3store
@IF $mode == 2 :df3restore
@MENUlogo Df3, 2                    ;
@MENUgoto Df3, :Df3Uninst            ;
@MENUput Df3(0), (12, 10)                     ;
@Goto :Df3Next
:df3exec
@MENUlogo Df3, 3                    ;
@MENUgoto Df3, :Df3Exec            ;
@MENUput Df3(1), (12, 10)            ;
@Goto :Df3Next
:df3store
@MENUlogo Df3, 4                    ;
@MENUgoto Df3, :Df3Store            ;
@MENUput Df3(0), (12, 10)            ;
@Goto :Df3Next
:df3restore
@MENUlogo Df3, 5                    ;
@MENUgoto Df3, :Df3Restore        ;
@MENUput Df3(0), (12, 10)            ;

:Df3Next
@RET


;
;
;
;
;

:MovieSetInst

@MENUput Movie2(0), (60, 10)            ;
@MENUput Movie3(0), (60, 10)            ;
@MENUput Movie4(0), (60, 10)            ;
@MENUput Movie5(0), (60, 10)            ;
@IF $mode == 0 :Movieexec
;@MENUlogo Movie1, 0                    ;
;@MENUlogo Movie2, 0                    ;
;@MENUlogo Movie3, 0                    ;
;@MENUlogo Movie4, 0                    ;
;@MENUlogo Movie5, 0                    ;
;@MENUgoto Movie1, :MovieNone            ;
;@MENUgoto Movie2, :MovieNone            ;
;@MENUgoto Movie3, :MovieNone            ;
;@MENUgoto Movie4, :MovieNone            ;
;@MENUgoto Movie5, :MovieNone            ;
MENUput Movie1(2), (60, 10)            ;
Goto :MovieNext
:Movieexec
;@MENUlogo Movie1, 1                    ;
;@MENUlogo Movie2, 1                    ;
;@MENUlogo Movie3, 1                    ;
;@MENUlogo Movie4, 1                    ;
;@MENUlogo Movie5, 1                    ;
;@MENUgoto Movie1, :Movie1Exec            ;
;@MENUgoto Movie2, :Movie2Exec            ;
;@MENUgoto Movie3, :Movie3Exec            ;
;@MENUgoto Movie4, :Movie4Exec            ;
;@MENUgoto Movie5, :Movie5Exec            ;
@MENUput Movie1(0), (60, 10)            ;
@Goto :MovieNext

:MovieNext

@RET



;
;
;
;
;

;

:Df3inst
@pcm 0
;
@INSTALL Df3                    ;
@INSTinfo Df3, $dam, $flag
@IF $flag == 0 :loop
@INSTcls                        ;
@DRAWdisable
@Gosub :Df3SetInst
@DRAWenable                        ;
@Goto :loop                        ;

;

:Df3Uninst                        ;
@pcm 0
;
@UNINSTALL Df3                    ;
@INSTinfo Df3, $flag
@IF $flag != 0 :loop
@INSTcls                        ;
@DRAWdisable
@Gosub :Df3SetInst
@DRAWenable                        ;
@Goto :loop                        ;

;

:Df3Store
@pcm 0
;
@INSTstore Df3
@INSTinfo Df3, $dam, $flag
@IF $flag == 0 :loop
@INSTcls                        ;
@Goto :loop                        ;

;

:Df3Restore
@pcm 0
;
@INSTrestore Df3
@INSTinfo Df3, $dam, $flag
@IF $flag == 0 :loop
@INSTcls                        ;
@Goto :loop                        ;

;

:Df3Exec
@pcm 0
@GAMEexec Df3
@Goto :loop

;

:Df3None
@Goto :loop




;@pcm 0
;@GAMEexec Heart                    ;
;@GOTO :loop
;:HeartNone
;@Goto :loop



;

;

:MadoInst                        ;
@pcm 0
;
@INSTALL Mado                    ;
@INSTinfo Mado, $dam, $flag
@IF $flag == 0 :loop
@INSTcls                        ;
@DRAWdisable
@Gosub :MadoSetInst
@DRAWenable                        ;
@Goto :loop                        ;

;

:MadoUninst                        ;
@pcm 0
;
@UNINSTALL Mado                    ;
@INSTinfo Mado, $flag
@IF $flag != 0 :loop
@INSTcls                        ;
@DRAWdisable
@Gosub :MadoSetInst
@DRAWenable                        ;
@Goto :loop                        ;

;

:MadoStore
@pcm 0
;
@INSTstore Mado
@INSTinfo Mado, $dam, $flag
@IF $flag == 0 :loop
@INSTcls                        ;
@Goto :loop                        ;

;

:MadoRestore
@pcm 0
;
@INSTrestore Mado
@INSTinfo Mado, $dam, $flag
@IF $flag == 0 :loop
@INSTcls                        ;
@Goto :loop                        ;

;

:MadoExec
@pcm 0
@GAMEexec Mado
@Goto :loop

;

:MadoNone
@Goto :loop


;
;
;
;
;

;

:SnpInst                        ;
@pcm 0
;
@INSTALL Snp                    ;
@INSTinfo Snp, $dam, $flag
@IF $flag == 0 :loop
@INSTcls                        ;
@DRAWdisable
@Gosub :SnpSetInst
@DRAWenable                        ;
@Goto :loop                        ;

;

:SnpUninst                        ;
@pcm 0
;
@UNINSTALL Snp                    ;
@INSTinfo Snp, $flag
@IF $flag != 0 :loop
@INSTcls                        ;
@DRAWdisable
@Gosub :SnpSetInst
@DRAWenable                        ;
@Goto :loop                        ;

;

:SnpStore
@Goto :loop                        ;

;

:SnpRestore
@Goto :loop                        ;

;

:SnpExec
@pcm 0
@GAMEexec Snp
@Goto :loop

;

:SnpNone
@Goto :loop



;
;
;
;
;

;

:JHInst                        ;
@pcm 0
;
@INSTALL JH                    ;
@INSTinfo JH, $dam, $flag
@IF $flag == 0 :loop
@INSTcls                        ;
@DRAWdisable
@Gosub :JHSetInst
@DRAWenable                        ;
@Goto :loop                        ;

;

:JHUninst                        ;
@pcm 0
;
@UNINSTALL JH                    ;
@INSTinfo JH, $flag
@IF $flag != 0 :loop
@INSTcls                        ;
@DRAWdisable
@Gosub :JHSetInst
@DRAWenable                        ;
@Goto :loop                        ;

;

:JHStore
@pcm 0
;
@INSTstore JH
@INSTinfo JH, $dam, $flag
@IF $flag == 0 :loop
@INSTcls                        ;
@Goto :loop                        ;

;

:JHRestore
@pcm 0
;
@INSTrestore JH
@INSTinfo JH, $dam, $flag
@IF $flag == 0 :loop
@INSTcls                        ;
@Goto :loop                        ;

;

:JHExec
@pcm 0
@GAMEexec JH
@Goto :loop

;

:JHNone
@Goto :loop


;
;
;
;
;

;

:GenInst                        ;
@pcm 0
;
@INSTALL GEN                    ;
@INSTinfo GEN, $dam, $flag
@IF $flag == 0 :loop
@INSTcls                        ;
@DRAWdisable
@Gosub :GenSetInst
@DRAWenable                        ;
@Goto :loop                        ;

;

:GenUninst                        ;
@pcm 0
;
@UNINSTALL GEN                    ;
@INSTinfo GEN, $flag
@IF $flag != 0 :loop
@INSTcls                        ;
@DRAWdisable
@Gosub :GenSetInst
@DRAWenable                        ;
@Goto :loop                        ;

;

:GenStore
@pcm 0
;
@INSTstore GEN
@INSTinfo GEN, $dam, $flag
@IF $flag == 0 :loop
@INSTcls                        ;
@Goto :loop                        ;

;

:GenRestore
@pcm 0
;
@INSTrestore GEN
@INSTinfo GEN, $dam, $flag
@IF $flag == 0 :loop
@INSTcls                        ;
@Goto :loop                        ;

;

:GenExec
@pcm 0
@GAMEexec GEN
@Goto :loop

;

:GenNone
@Goto :loop

;
;
;
;
;

;

:NPInst                        ;
@pcm 0
;
@INSTALL NP                    ;
@INSTinfo NP, $dam, $flag
@IF $flag == 0 :loop
@INSTcls                        ;
@DRAWdisable
@Gosub :NPSetInst
@DRAWenable                        ;
@Goto :loop                        ;

;

:NPUninst                        ;
@pcm 0
;
@UNINSTALL NP                    ;
@INSTinfo NP, $flag
@IF $flag != 0 :loop
@INSTcls                        ;
@DRAWdisable
@Gosub :NPSetInst
@DRAWenable                        ;
@Goto :loop                        ;

:NPExec
@pcm 0
@GAMEexec NP                    ;
@GOTO :loop

;

:NPNone
@Goto :loop




;
;
;
;
;

:Movie1Exec
@pcm 0
@AVI g:\movie\DS13cm.avi, 3
;
$snd = 0
@snd $snd
@pcmload DSmenu.wlk

@Goto :loop

;
;
;
;
;

:Movie2Exec
@pcm 0
@AVI g:\movie\Madopuro.avi, 3
;
$snd = 0
@snd $snd
@pcmload DSmenu.wlk

@Goto :loop

;
;
;
;
;

:Movie3Exec
@pcm 0
@AVI g:\movie\Winpuyo.avi, 3
;
$snd = 0
@snd $snd
@pcmload DSmenu.wlk

@Goto :loop

;
;
;
;
;

:Movie4Exec
@pcm 0
@AVI g:\movie\Nazopucm.avi, 3
;
$snd = 0
@snd $snd
@pcmload DSmenu.wlk

@Goto :loop


;
;
;
;
;

:Movie5Exec
@pcm 0
@AVI g:\movie\Enmy0_1.avi, 3
;
$snd = 0
@snd $snd
@pcmload DSmenu.wlk

@Goto :loop

:MovieNone
@Goto :loop